﻿Public Class LabelStatusObserver
    Inherits NamedStatusObserver
    Private label As Label

    Sub New(ByRef aLabel As Label, ByVal aStatusClass As NamedStatusObservable)
        MyBase.New(aStatusClass)
        label = aLabel
    End Sub


    Public Overrides Sub Notify()
        label.Text = statusClass.getStatusDescription()
    End Sub

End Class
